home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / imagedesk304 / imagedesk / installid < prev    next >
Text File  |  1996-06-06  |  12KB  |  452 lines
  1. ; Install script for ImageDesk (Workbench 3.0 or higher)
  2.  
  3. (set @default-dest "work:")
  4. (set #CDir "C:")
  5. (set #KeyPath "S:")
  6.  
  7. ;=============================================================================
  8. ; English strings
  9.  
  10. (set default_lang 4)
  11.  
  12. (set #bad-kick "I'm sorry. ImageDesk needs Amiga-OS 3.0 or higher")
  13.  
  14. (set #install-msg
  15.     (cat "\n\nIMAGEDESK INSTALLATION\n"
  16.          "Don´t forget to read 'ImageDesk.guide'\n"
  17.          "after the installation.\n"
  18.          "ImageDesk © 1994-1996 Reinhard Haslbeck\n"
  19.          "All rights reserved."
  20.     )
  21. )
  22.  
  23. (set #Proc-msg
  24.     (cat "Please choose one of the two program versions\n"
  25.          "which are listed below. The MC68020 version\n"
  26.          "should run on 030 and 040 machines too."
  27.     )
  28. )
  29.  
  30. (set #Wicon-msg "Which kind of icons do you prefer?")
  31.  
  32. (set #MIPFIC-msg
  33.     (cat "MIPFIC is an ImageDesk tool\n"
  34.          "It converts ImageDesk catalogs\n"
  35.          "into IFF pictures.\n"
  36.          "Do you want me to install it?"
  37.     )
  38. )
  39.  
  40. (set #Exit-msg
  41.     (cat "ImageDesk now has been installed.\n"
  42.          "If You wanna have JPEG support, You have to\n"
  43.          "install the 'Tower JPEG Codec' too.\n"
  44.          "You will find it in the directory 'JPEG Codec'."
  45.     )
  46. )
  47.  
  48. (set #Copy020Msg "Copying 68020 version...")
  49. (set #Copy000Msg "Copying 68000 version...")
  50. (set #CopyMIPFICMsg "Copying MIPFIC...")
  51. (set #CopyMIPFICDocMsg "Copying MIPFIC.doc...")
  52. (set #CopyIFFLibMsg "Installing iff.library")
  53. (set #AskDirMsg  "Please select install directory.\nDrawer >ImageDesk< will be created")
  54. (set #CopyComMsg "These are a few useful tools.\nDo You want to intstall them?")
  55. (set #CopyKeyMsg "Installing keyfile...")
  56. (set #DontCopyMSg "I'm going to install Your keyfile.\nDon't give it away, it includes some\nof Your personal data!")
  57.  
  58. (set #AskCatMsg "Do You want to install some Catalog examples?")
  59. (set #PosMsg "Yes")
  60. (set #NegMsg "No")
  61. (set #CopyCatMsg "Copy these files?")
  62. (set #AskCatDescMsg "Do You want me to copy the catalog\ndescription file for developers?")
  63. (set #CopyCatDescMsg "Copying catalog description...")
  64. (set #CopyICONMsg "Working on default project icon")
  65. (set #ToolTypeMsg "Setting icon attributes")
  66. (set #AskRexxMsg "Do You want to install some AREXX example scripts?")
  67. (set #ExtractMsg "Stay a bit patient\nextracting files from archive...")
  68.  
  69.  
  70. ;=============================================================================
  71. ; German strings
  72.  
  73. (if   (= @language "deutsch")
  74. (
  75.     (set default_lang 2)
  76.  
  77.     (set #bad-kick "Zu dumm! ImageDesk benötigt leider Amiga-OS 3.0 oder höher")
  78.  
  79.     (set #install-msg
  80.         (cat "\n\nIMAGEDESK INSTALLATION\n"
  81.              "Vergessen Sie nicht die Anleitung 'ImageDesk.guide'\n"
  82.              "nach der Installation zu lesen.\n"
  83.              "ImageDesk © 1994-1996 Reinhard Haslbeck\n"
  84.              "Alle Rechte vorbehalten."
  85.         )
  86.     )
  87.  
  88.     (set #Proc-msg
  89.         (cat "Wählen Sie bitte welche der beiden untenstehenden\n"
  90.              "Programmversionen installiert werden soll.\n"
  91.              "MC68020 sollte auch auf 030 und 040 Maschinen laufen."
  92.         )
  93.     )
  94.  
  95.     (set #Wicon-msg "Wählen Sie welche Icons\ninstalliert werden sollen.")
  96.  
  97.     (set #MIPFIC-msg
  98.         (cat "MIPFIC ist ein Zusatzprogramm für\n"
  99.              "ImageDesk. Es erzeugt IFF-Bilder\n"
  100.              "aus ImageDesk-Katalogen.\n"
  101.              "Soll es ebenfalls installiert werden?"
  102.         )
  103.     )
  104.  
  105.     (set #Exit-msg
  106.         (cat "ImageDesk ist nun installiert.\n"
  107.              "Wenn Sie JPEG Unterstützung haben wollen, müssen\n"
  108.              "Sie den 'Tower JPEG Codec', ebenfalls installieren.\n"
  109.              "Er befindet sich im Verzeichnis 'JPEG Codec'."
  110.         )
  111.     )
  112.  
  113.  
  114.     (set #Copy020Msg "Kopiere 68020 Version...")
  115.     (set #Copy000Msg "Kopiere 68000 Version...")
  116.     (set #CopyMIPFICMsg "Kopiere MIPFIC...")
  117.     (set #CopyMIPFICDocMsg "Kopiere MIPFIC.doc...")
  118.     (set #CopyIFFLibMsg "Installiere iff.library")
  119.     (set #AskDirMsg  "Wählen Sie bitte den Installationspfad.\nDas Verzeichnis >ImageDesk< wird darin angelegt.")
  120.     (set #CopyComMsg "Dies sind einige nützliche Tools.\nSollen sie installiert werden?")
  121.     (set #CopyKeyMsg "Installiere Keyfile...")
  122.     (set #DontCopyMSg "Es wird nun das Keyfile kopiert. Geben\nSie es keinesfalls weiter, es sind einige\nIhrer persönlichen Daten darin enthalten!")
  123.     (set #AskCatMsg "Sollen einige Catalog Beispiele installiert werden?")
  124.     (set #PosMsg "Ja")
  125.     (set #NegMsg "Nein")
  126.     (set #CopyCatMsg "Diese Dateien Kopieren?")
  127.     (set #AskCatDescMsg "Soll die Katalogbeschreibung\nfür Entwickler kopiert werden?")
  128.     (set #CopyCatDescMsg "Kopiere Katalogbeschreibung")
  129.     (set #CopyICONMsg "Arbeite am default project icon")
  130.     (set #ToolTypeMsg "Setze Icon-Attribute")
  131.     (set #AskRexxMsg "Sollen einige AREXX Beispiele installiert werden?")
  132.     (set #ExtractMsg "Bitte etwas Geduld\nextrahiere Dateien aus Archiv...")
  133.  
  134.  
  135. ))
  136.  
  137. ;=============================================================================
  138. ; For installation of italian guides
  139. (if   (= @language "italiano")
  140. (
  141.     (set default_lang 32)
  142.     (set #install-msg
  143.         (cat "\n\nIMAGEDESK INSTALLATION\n"
  144.              "Installs the italian guide file.\n"
  145.              "All other texts and messages will be in english.\n"
  146.              "ImageDesk © 1994-1996 Reinhard Haslbeck\n"
  147.              "All rights reserved."
  148.         )
  149.     )
  150. ))
  151.  
  152. ;=============================================================================
  153. ; make sure we are running under a 3.0 OS
  154.  
  155. (if (< (/ (getversion) 65536) 39)
  156. (
  157.     (abort #bad-kick)
  158. ))
  159.  
  160. ;=============================================================================
  161.  
  162. (message #install-msg)
  163.  
  164. (set ProcVers (askchoice
  165.                         (prompt #Proc-msg)
  166.                         (help @askchoice-help)
  167.                         (choices "MC68020" "MC68000")
  168.               )
  169. )
  170.  
  171. (set WhichIcons (askchoice
  172.                         (prompt #Wicon-msg)
  173.                         (help @askchoice-help)
  174.                         (choices "Standard" "MagicWB-Style")
  175.                 )
  176. )
  177.  
  178.  
  179. (set @default-dest (askdir
  180.                        (prompt #AskDirMsg)
  181.                        (help @askdir-help)
  182.                        (default @default-dest)
  183.                    )
  184. )
  185. (set dummy (tackon @default-dest "ImageDesk"))
  186. (makedir dummy)
  187. (set @default-dest dummy)
  188. (complete 5)
  189.  
  190. (working #ExtractMsg)
  191. (run ("c/lhex -qw=T: x InstData.lha")
  192.  
  193. )
  194. (complete 10)
  195. ;====== copy english stuff ======
  196. (if (= default_lang 4)
  197. (
  198.     (copyfiles
  199.         (prompt "Copying english guide file...")
  200.         (help @copyfiles-help)
  201.         (source "T:InstData/ImageDeskE.guide")
  202.         (dest @default-dest)
  203.         (newname "ImageDesk.guide")
  204.         (infos)
  205.         (confirm)
  206.     )
  207.  
  208.     (if (exists "T:InstData/OrderForm")
  209.     (
  210.         (copyfiles
  211.             (prompt "Copying english OrderForm file...")
  212.             (help @copyfiles-help)
  213.             (source "T:InstData/OrderForm")
  214.             (dest @default-dest)
  215.             (newname "OrderForm")
  216.             (infos)
  217.             (confirm)
  218.         )
  219.     ))
  220. ))
  221.  
  222. ;====== copy german stuff ======
  223. (if (= default_lang 2)
  224. (
  225.     (copyfiles
  226.         (prompt "Kopiere deutsche guide Datei...")
  227.         (help @copyfiles-help)
  228.         (source "T:InstData/ImageDeskD.guide")
  229.         (dest @default-dest)
  230.         (newname "ImageDesk.guide")
  231.         (infos)
  232.         (confirm)
  233.     )
  234.  
  235.     (if (exists "T:InstData/Bestellformular")
  236.     (
  237.         (copyfiles
  238.             (prompt "Kopiere deutsches Bestellformular...")
  239.             (help @copyfiles-help)
  240.             (source "T:InstData/Bestellformular")
  241.             (dest @default-dest)
  242.             (newname "Bestellformular")
  243.             (infos)
  244.             (confirm)
  245.         )
  246.     ))
  247. ))
  248.  
  249. ;====== copy italian stuff ======
  250. (if (= default_lang 32)
  251. (
  252.     (copyfiles
  253.         (prompt "Copying italian guide file...")
  254.         (help @copyfiles-help)
  255.         (source "T:InstData/ImageDeskI.guide")
  256.         (dest @default-dest)
  257.         (newname "ImageDesk.guide")
  258.         (infos)
  259.         (confirm)
  260.     )
  261.  
  262.     (if (exists "T:InstData/OrderForm")
  263.     (
  264.         (copyfiles
  265.             (prompt "Copying english OrderForm file...")
  266.             (help @copyfiles-help)
  267.             (source "T:InstData/OrderForm")
  268.             (dest @default-dest)
  269.             (newname "OrderForm")
  270.             (infos)
  271.             (confirm)
  272.         )
  273.     ))
  274. ))
  275. (complete 30)
  276.  
  277. ;====== install 68020 version =====
  278. (if (= ProcVers 0)
  279. ;then
  280.     (copyfiles
  281.         (prompt #Copy020Msg)
  282.         (help @copyfiles-help)
  283.         (source "T:InstData/ImageDesk.020")
  284.         (dest @default-dest)
  285.         (newname "ImageDesk")
  286.         (infos)
  287.         (confirm)
  288.     )
  289. ;)
  290. ;====== install 68000 version =====
  291. ;else
  292.     (copyfiles
  293.         (prompt #Copy000Msg)
  294.         (help @copyfiles-help)
  295.         (source "T:InstData/ImageDesk.000")
  296.         (dest @default-dest)
  297.         (newname "ImageDesk")
  298.         (infos)
  299.         (confirm)
  300.     )
  301. )
  302. (complete 35)
  303.  
  304. ;====== install MIPFIC =====
  305. (if (askbool (prompt #MIPFIC-Msg) (choices #PosMsg #NegMsg) (help @askbool-help))
  306. (
  307.     (copyfiles
  308.             (prompt #CopyMIPFICMsg)
  309.             (help @copyfiles-help)
  310.             (source "T:InstData/MIPFIC")
  311.             (dest @default-dest)
  312.             (newname "MIPFIC")
  313.             (infos)
  314.             (confirm)
  315.     )
  316.     (copyfiles
  317.             (prompt #CopyMIPFICDocMsg)
  318.             (help @copyfiles-help)
  319.             (source "T:InstData/MIPFIC.doc")
  320.             (dest @default-dest)
  321.             (newname "MIPFIC.doc")
  322.             (infos)
  323.             (confirm)
  324.     )
  325.     (copylib
  326.             (prompt #CopyIFFLibMsg)
  327.             (help @copylib-help)
  328.             (source "T:InstData/libs/iff.library")
  329.             (dest "LIBS:")
  330.             (confirm)
  331.     )
  332. ))
  333. (complete 40)
  334.  
  335.  
  336. ;== install default project icon ==
  337. (if (= WhichIcons 0)
  338. ;then Standard Icons
  339.     (copyfiles
  340.         (prompt #CopyICONMsg)
  341.         (help @copyfiles-help)
  342.         (source "T:InstData/ID_DefProjIcon.info")
  343.         (dest @default-dest)
  344.         (newname "ID_DefProjIcon.info")
  345.         (confirm)
  346.     )
  347. ;else MagicWBIcons
  348.     (
  349.     (copyfiles
  350.         (prompt #CopyICONMsg)
  351.         (help @copyfiles-help)
  352.         (source "T:InstData/ID_DefProjIconMWB.info")
  353.         (dest @default-dest)
  354.         (newname "ID_DefProjIcon.info")
  355.         (confirm)
  356.     )
  357.     (copyfiles
  358.         (prompt #CopyICONMsg)
  359.         (help @copyfiles-help)
  360.         (source "T:InstData/ImageDeskMWB.info")
  361.         (dest @default-dest)
  362.         (newname "ImageDesk.info")
  363.         (confirm)
  364.     )
  365.     )
  366. )
  367. (tooltype
  368.     (prompt #ToolTypeMsg)
  369.     (help @tooltype-help)
  370.     (dest (tackon @default-dest "ID_DefProjIcon"))
  371.     (setdefaulttool (tackon @default-dest "ImageDesk"))
  372.     (confirm)
  373. )
  374. (complete 50)
  375.  
  376. ;====== install Catalog tools =====
  377. (copyfiles
  378.     (prompt #CopyComMsg)
  379.     (help @copyfiles-help)
  380.     (source "T:InstData/c/")
  381.     (dest #CDir)
  382.     (all)
  383.     (confirm 1)
  384. )
  385. (complete 70)
  386.  
  387. ;====== Copy example Catalogs =====
  388. (if (askbool (prompt #AskCatMsg) (choices #PosMsg #NegMsg) (help @askbool-help))
  389. (
  390.     (copyfiles
  391.         (prompt #CopyCatMsg)
  392.         (help @copyfiles-help)
  393.         (source "T:InstData/example/")
  394.         (dest (tackon @default-dest "example"))
  395.         (all)
  396.         (confirm 1)
  397.     )
  398. ))
  399. (complete 80)
  400.  
  401. ;====== Copy catalog description =====
  402. (if (askbool (prompt #AskCatDescMsg) (choices #PosMsg #NegMsg) (help @askbool-help))
  403. (
  404.     (copyfiles
  405.         (prompt #CopyCatDescMsg)
  406.         (help @copyfiles-help)
  407.         (source "T:InstData/CatDescription")
  408.         (dest @default-dest)
  409.         (newname "CatDescription")
  410.         (infos)
  411.         (confirm)
  412.     )
  413. ))
  414. (complete 85)
  415.  
  416. ;====== Copy rexx Scripts =====
  417. (if (askbool (prompt #AskRexxMsg) (choices #PosMsg #NegMsg) (help @askbool-help))
  418. (
  419.     (copyfiles
  420.         (prompt #CopyCatMsg)
  421.         (help @copyfiles-help)
  422.         (source "T:InstData/rexx/")
  423.         (dest (tackon @default-dest "rexx"))
  424.         (all)
  425.         (confirm 1)
  426.     )
  427. ))
  428. (complete 90)
  429.  
  430. ;====== install keyfile ========
  431. (if (= (run "GetEnv KEYPATH") 0)
  432. (
  433.  (set #KeyPath (getenv "KEYPATH"))
  434. )
  435. )
  436. (if (exists "s/ImageDesk.Key")
  437. (
  438.     (message #DontCopyMsg)
  439.     (copyfiles
  440.         (prompt #CopyKeyMsg)
  441.         (help @copyfiles-help)
  442.         (source "s/ImageDesk.Key")
  443.         (dest #KeyPath)
  444.         (newname "ImageDesk.Key")
  445.     )
  446. )
  447. )
  448. (run ("delete T:InstData ALL QUIET FORCE")
  449. )
  450. (message #exit-msg)
  451. (complete 100)
  452.